(define (print-word w) (display w) (display #\x00))
(define (print-words ws) (for-each print-word ws))

(print-words '(one
	       dup dup dot add dot
	       ":" double dup add ";"
	       ":" ddd double dup dot ";"
	       lit 7 ddd ddd ddd ddd ddd ddd ddd
	       ))

;; scheme --script print-words.scm > t1.w
